home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1991
/
06
/
alib
/
ispunct.asm
< prev
next >
Wrap
Assembly Source File
|
1991-08-22
|
388b
|
34 lines
include asm.inc
public ispunct
.code
;; ispunct
;
; entry AL character
; exit Zf if !"#%&'();<=>?[\]*+,-./:^_{|}~
;
ispunct proc
cmp al,'!'
jbe isp2
cmp al,'/'
jbe isp1
cmp al,':'
jbe isp2
cmp al,'@'
jbe isp1
cmp al,'['
jbe isp2
cmp al,'`'
jbe isp1
cmp al,'{'
jbe isp2
cmp al,'~'
ja isp2
isp1: cmp al,al
isp2: ret
ispunct endp
end